(define foo-1
  (print (local-syntax x (lambda (exp env)
			   (syn-car (syn-cdr exp)))
		       (x 420))))
(define foo-2
  (local-syntax x (lambda (exp env)
		    (list (syx 'id 'begin '())
			  (syn-car (syn-cdr exp))
			  (syn-car (syn-cdr exp))))
		(x (print 420))))
